﻿Public Class Consulta_empleado
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT_atras_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_atras.Click
        Response.Redirect("~/Consulta.aspx")
    End Sub

    Protected Sub BT_buscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_buscar.Click
        buscar_empleado()
    End Sub

    Protected Sub buscar_empleado()
        Panel_empleado.Visible = True

        Dim nombres_empleado As String
        Dim apellidos_empleado As String
        Dim tipo_documento_empleado As String
        Dim numero_documento_empleado As String
        Dim eps_emleado As String
        Dim arp_emleado As String
        Dim cargo_empleado As String
        Dim numero_telef_empleado As String
        Dim direccion_empleado As String

        Dim Storexpress As New DCStorexpressDataContext
        Try

            Dim query = Storexpress.p_buscar_empleado(TB_numeroced.Text)
            Dim registro = query.First
            nombres_empleado = registro.NOMBRES_EMPLEADO
            apellidos_empleado = registro.APELLIDOS_EMPLEADO
            tipo_documento_empleado = registro.TIPO_DOCUMENTO_EMPLEADO
            numero_documento_empleado = registro.NUMERO_DOCUMENTO_EMPLEADO
            eps_emleado = registro.EPS_EMPLEADO
            arp_emleado = registro.ARP_EMPLEADO
            cargo_empleado = registro.CARGO_EMPLEADO
            numero_telef_empleado = registro.NUMERO_TELEF_EMPLEADO
            direccion_empleado = registro.DIRECCION_EMPLEADO

            TB_nombres.Text = nombres_empleado
            TB_apellidos.Text = apellidos_empleado
            TB_tipodoc.Text = tipo_documento_empleado
            TB_numerodoc.Text = numero_documento_empleado
            TB_eps.Text = eps_emleado
            TB_arp.Text = arp_emleado
            TB_cargo.Text = cargo_empleado
            TB_telefono.Text = numero_telef_empleado
            TB_direccion.Text = direccion_empleado



        Catch ex As InvalidOperationException
            If MsgBox("no hay registros coincidentes") Then
                Panel_empleado.Visible = False
            End If
        End Try
    End Sub


End Class